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AAA AAA II] LLL 
AAA AAA II] LLL 
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MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 18-se sep- 138% PRES ‘9 ‘ ht Sr 932" age at 


-Sep-1 


3 1 4 p MODULE MAILSSEND ree aT1T hE ot aeyns PERSONAL MAIL UTILITY’ 

by +} 

3 : : BEGIN 
; 4 4 1 | 
; 5 005 1! 

3 $ 8 : Nie Ge age eS 
P 4 we 
3 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ® 
: 29 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
3 + gaiy ! it ALL RIGHTS RESERVED. * 
Ps ; 
: i B36 1 !® THIS SOFTWARE } FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ba * 
Bk: 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW ISE MADE AVAILABLE TO ANY * 
3 16 B28 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s + id EA ! be TRANSFERRED. * 
3 ‘® ® 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 3 B36) : :* CORPORATION. 4 
3 '* ® 
; ¢ 0038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $¢ 88 : : + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ 
> 26 0036 1 ie * 
3 i it 44 : atacand 
: 29 0029 1 

3 0 0030 1 !++ 

; 1 tt : FACILITY: VAX/VMS MAIL UTILITY 

; § 0038 ; ABSTRACT: Send message to another user on local node 

: i 0035 | ENVIRONMENT: NATIVE/USER MODE 

; : 0037 ! AUTHOR: Benn Schreiber, CREATION DATE: 22-Dec-1982 

: 35 0039 1 ! MODIFIED BY: 

s 60 0040 1! 

3; «(41 0041 1! v03-019 ROPO032 Robert Posniak 09-AUG-1984 

; ri} 0042 1! Make sure poges ty allocated XABs are disconnected 

: 4 004 : from global F 

: 1 i V03-018 ROPO029 Robert Posniak 24=JUL-1984 

: 1! Allow VFC format files to be sent in 

3 : whe mode. 

: 1 i v03-017 ROPOO Robert Posniak 27-JUN-1984 

: 1! ney ir in block mode if input file has 

3 1! oe able length records. Modify test of 

3 7} isam_create Status to allow sending to 

; : sequential files. 

; 1 i v03-016 BLS0272 Benn Schreiber 18-FEB-1984 13:39:01 
3 : Change call to mail$net_send to send addressee descriptor 


Be Oe Oe Be Be Oe Se He Be Se Be Be Se Se Se Se Be Se Fe Ge Se Ge Se Se Se Ge Se Ge Se Se Be Oe Se Se Se Se Se Se Se Se Se Se HH Se Se Se Se Se Se Se Se ee SH Se Be Se ae 


H 5 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 2:17:01 VAX-11 Bliss-32 V4.0-742 Page 2) 
y04tO05 12-808- 138 Oh: 3: 1 DISKSVMSMASTER = CMAIL . SRCJSENDMSG.B32:1> ay 
3 38 ; , } v03-015 BLS0263 Benn Schreiber 5-FEB-1984 : 
: 26 ; : Only set exec mode on external file if requested. | : 
; (61 061 1! v03-014 BLS0255 Benn Schreiber 28-Dec-1983 : 
3 ¢ pes 1! New global flags. Open mail file with exec moce logicals. ; 
; 6 be 1! Fix error return from create_isam to only try sequential : 
; oe 5¢4 : file if error was file locked. Skip addressees marked nosend. : 
; 6 066 1 i v03-013 BLS0250 Benn Schreiber 9-Dec-1983 ; 
; a4 be : } Ensure that we are writing to a disk device. : 
: 69 O89 1 V03-012 BLS0246 Benn Schreiber 8-Noy- 1983 : 
: 4 Boos : } New mail count in VMSMAIL.DAT, rather than mail file : 
: 9 007¢ 1 i v03-011 BLS0235 Benn Schreiber 23-Aug-1983 ; 
: 7 0075 1! Quit if Sconnect fails, also. Really rewind the ’ 
3 a Babe } message file for each addressee. : 
: 7% 0076 1 i v03-010 BLS0233 Benn Schreiber 7=Aug-1983 ; 
; a BaF : Put nodename on sender's name correctly : 
: 79 oOr8 1 i v03-009 BLS0229 Benn Schreiber 16-Jul-1983 5 
; 0080 1! Deliver external message files in block mode. Rewrite 3 
; 3 Opes : mail$send_addr into bliss. ; 
: 8 0088 1 i v03-008 BLS0222 Benn Schreiber 15-May-1983 : 
; ae Bo8e ! Set SQ0 on sequential external file. : 
: 86 0086 1: v03-007 BLS0221 Benn Schreiber 5-May-1983 : 
3 44 4 $4 : } Correct SYSPRV handling : 
: 89 0089 1} v03-006 BLS0220 Benn Schreiber 30-Apr-1983 : 
3 +4 Beat ' } Device/directory are now one argument : 
; % 0092 1: V03-005 BLS0218 Benn Schreiber 18-Apr-1983 : 
ma 0095 1! Call check_date with 3rd arg (dev/dir descriptor). Allow 3 
3 oe pee : for no protection xab and make one up. : 
> 96 0096 1: v03-004 BLS0217 Benn Schreiber 12-Apr-1983 : 
.-" oe 0097 1! Tell if new folder created. Add external message deliver 3 
3 a8 494 : for large messages. : 
: 100 0100 1: v03-003 BLS0216 Benn Schreiber 1-Apr-1983 : 
: 13 git ' Add flag to use passed in date/time rather than current. | : 
; 108 0108 1: v03-002 BLS0214 Benn Schreiber 27-Mar-1983 | ; 
3: 104 0104 1! Put new messages in NEWMAIL folder. Count records 3 
$ ize 3192 ' and store count in message header. : 
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ROUTINE PUT_SEND_MSG (LENGTH, ADDR, SND_RAB) = 

BEGIN 
j 


Kk 5 
BAILESEND ASG VAX/VMS PERSONAL MAIL UTILITY 1o-se0°19 4 9}: 


—_ 


14 
FUNCTIONAL DESCRIPTION: 


i This routine write the record specified by LENGTH and ADDR 
to SND_RAB, and reports errors encountered. 

INPUTS: 

i LENGTH Length of record to write 

: ADDR address of record to write 


Pp 
SND_RAB : REF $BBLOCK; 


LOCAL 
STATUS; 


SND_RABCRABSW_RSZ] = .LENGTH; 
SND~RABLRABSL_RBF) = .ADDR; 


IF_ERR((IF .SND_RABCRAB$V_B10) 
THEN $WRITE(RAB=.SND_RAB,E 
ELSE $PUT(RAB=.SND_RAB,ERR 
RETURN .STATUS); 
RETURN TRUE 
END; 
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=UTILSREPORT_IO_ERROR));, 
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TITLE MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 
IDENT \V04-000\ 


~PSECT SOWNS,NOEXE,2 
00# 00000 DYN_DESC: 


-BYTE 02) : 
02 0€ 00002 -BYTE 14, 2 ; 
90004 -BLKB 4 
00# 00008 DYN_DESC_2: 
“BYTE 02) : 
02 OE OOO0A “BYTE 14, 2 ; 
0000¢ -BLKB 4 
-EXTRN MAILS$GL_BIGBUFSIZ 
-EXTRN MAILS$GL-BIGBUFFER 
-EXTRN MAILSGL-FLAGS, MAIL$Q_SYSNODE2 
-EXTRN MAIL$Q_FULLUSER 
-EXTRN MAILS$T"UAF_BUFF 
-EXTRN MAILSL7MYUIC, MAILSL_SIZLIM 
-EXTRN MAIL$SO_EXTMSGNAM 
SEXTRN MAILSSD NEWMAIL 
-EXTRN LIBSFREE_VM, MAILSCHECK_DATE 
SEXTRN MAILSCRERTE ISAM 
.EXTRN = MAILSDELETECINK 
-EXTRN MAILSFAO_GETMSG 
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: r } ROUTINE PUT_NEW_REC(LENGTH,ADDR,SND_RAB) = 
3 3 ! FUNCTIONAL DESCRIPTION: 

; 210 4 1! Write a record to the isam file. 
3 11 1! 

$ \¢ 4 1 leo 

3 \7 5 BEGIN 

> 215 26 MAP 

3 16 58 SND RAB: REF $BBLOCK, 

3 17 59 ADDR : REF S$BBLOCK; 

; 18 60 

3 19 3) ATR 

3; 220 0 6 

3 ge) 036 

3 $56 0364 

; 22 0365 2 SND_RABCRABSL_KBF) = ADDR[MFR_Q_DATIM); 
3 224 0366 SND_RABCRAB$B_KSZ]) = 8; 

3; eed 0367 

: 226 0368 § 

: def 0369 

; 228 0370 1 END; 


0000 00000 PUT_NEW_REC: 
WORD 


A Save nothing ; 0348 
50 Oc aC 00 00002 MOVL = SND > 0365 

30 Ad 08 AC 00 00006 MOVL ADDR, 48(RO) : 
34 Ad 08 90 00008 MOVE = #8 : 0366 
B6 AF 6C FA OOOOF CALLG (AP), PUT_SEND_MSG : 0368 
04 00013 RET : 0370 


RETURN CALLG(.AP,PUT_SEND_MSG) 
; Routine Size: 20 bytes, Routine Base: S$CODE$ + 0037 


<z 


VAX/VMS PERSONAL MAIL UTILITY 


ow 


ROUTINE END_PACK(RECLEN,RECBUF ,SND_RAB) = 
| FUNCTIONAL DESCRIPTION: 
i Write out remainder of packed record 


»RECLEN EQL ae eer errn T_DATA) 


RETURN CALLG(.AP,PUT_NEW_REC) 


Roronononononononofopronopornofpeornofreroerny» 


i So SS SS 
DWNOUNEWWRODDNOULSWWNR HO 


COOCSCOCSCOCOCOCOCOCOOOCOoOoOoOoO 
WAWNA 

COW OOOWWOON NNN NS 
DONO UVLE WO VONOUS win 


0000 00000 END_PACK: 
WOR 


3 Routine Size: SCODES + 0048 


5 
sepe 1307 ESS X=11 Oi ieee 32 V4.0-742 
$ep-1984 12:42:31 DISKSVMSMASTER: MAIL. SRCJSENDMSG. 832; ad 


(AP), PUT_NEW_REC 


Bete Se Fe Ge Ge Se 


eee ee VAX/VMS PERSONAL MAIL UTILITY 1b-se ~3007 138% 93:12 at ; 8 32 Pte ¢ Page 9 


v4. 
14-Sep- : (MAIL. SRCISENDMSG.B32; 


; 5 4 ROUTINE INIT_PACK_REC(RECLEN) = 
: g 3 i FUNCTIONAL DESCRIPTION: 

; 55 8 33 ! Initialize for packing records 
: 28 8 39 

3 58 0398 

: 259 0399 

> 260 400 

; 361 401 

; 6g 4 é RECLENCO)] = SBYTEOFFSET(MFR_T_DATA); 
: 36 040 

: 264 0404 2 RETURN TRUE 

> 265 0405 1 END; 


0000 00000 INIT_PACK_REC: 
.QOR 


Save eornrem ; 0390 

06 «BC 30 DO 00002 MOVL #48, @RECLE 3; 0402 
50 01 DO 00006 MOVL #1, RO : 0404 

04 00009 RET 3; 0405 


; Routine Size: 10 bytes, Routine Base: S$CODE$ + 005C 


| 

1 | 
1 
1 
1 
1 
:] 
1 

BEGIN 

MAP | 

RECLEN : REF VECTORC,LONG); | 

| 


6 
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: 406 ROUTINE PACK_NEW_REC (LENGTH,ADDR,RECLEN,RECBUF,SND_RAB) = 
; 40 FUNCTIONAL DESCRIPTION: 

; Rei9 : Pack records into buffer. Write out records as needed 
; 412 1 is. 

; 8218 BEGIN 

Oc1¢ 5 MAP 

; 0416 RECLEN : REF VECTORC,LONG); 

; Belg IF (.RECLENCO) + .LENGTH + 2) GTR MFR_C_MAXLEN 

; 041 THEN BEG! 

: P 04 0 IF ERR(PUT ~NEW RE REC(, RECLENCO], .RECBUF,.SND_RAB);, 

: 04 ; INIT _PACK pert cnbeate™ 

: as 3 ENO 

: Rese gg, 

; 0497 BUFF = .RECBUF + .RECLENCO) : VECTORC,WORD]; 

: 0409 BUFFCO) = .LENGT 

; 0430 CHSMOVE ( «LENGTH MiDoR BUFFL1}); 

; 0431 ECLENCO] = .RECLENCOS + .LENGTH + 2; 

: 2 pee. 

: 0434 2 RETURN TRUE 

3 0435 1 END; 


003C 00000 PACK_NEW_REC: 
. WOR Save R2,R3,R4,R 


50 oc BC 04 aC C1 00002 ADDL LENGTH, “BaECLEN RO ; 
50 08 CO 00008 ADDL2 RO ; 

00000800 =F D1 9008 CMPL * #2048 : 

15 15 0001 BLEQ ; 

7E 10 ac 70 0014 MOVOQ RECBUF, -(SP) ; 

0c DD 00018 PUSHL  @RECLEN ; 

B2 AF FB 0018 CALLS #3 PUT NEW. REC : 

26 E 1F LBC statu : 

0c AC DD 000 : PUSHL RECLE : 

CD sOAF 01 FB 000 CALLS @# INIT _PACK REC ; 

50 10 A C BC C1 00029 1$: ADDL3 @RECLEN, ~RECBOF, ; 
6 4 ac 80 OoF MOVW LENGTH, (R : 

02 ad 08 BC Sa 3 MOV LENGTH, @ADDR, 2(RO) : 
50 C BC 4 aC a A ADDL ENGTH, @RECLEN, R ; 
oC BC 2 A f 40 MOVAB (RO), @RECLEN : 

0 01 »D : 4 MOVL #1, RO : 

04 00048 28: RET : 


; Routine Size: 73 bytes, Routine Base: S$CODE$ + 0066 


“an Biden grb Patent ses worn IESEOcH9BE QU:IBEO]  YAECDABMRHERE Hi? “ZE2asenonsc.os2f49" 


MALLESEND ASG 
v04-00 


08 05 
000000006 


000000006 


04 


; Routine Size: 48 bytes, 


VAX/VMS PERSONAL MAIL UTILITY 


; 298 4 § 1 

: 299 1 

: 500 4 3 1 

3 01 4 1 

; o¢ 440 1 

: Q 44 1 

3 04 442 1 !e- 

s 305 044 BEGIN 

; 306 0444 

; 307 0445 MAP 

; 308 446 OUTDESC 

; 09 447 GETR 

3 10 446 

s Si 0449 LOCAL 

3 \¢ 0450 STATUS; 

3 Ht 0451 

3 14 Bees STATUS = (IF 
§ $2 0453 4 

: 316 0454 

; 317 0455 F STATUS 

; 318 0456 THEN BEGIN 

:; 319 0457 pu Tee the 
; 320 0458 OUTDESCL1 
ae 0459 END; 

3 356 0460 

3 2 0461 RETURN .STATUS 
: 324 0462 1 END; 


0 
0 
5 
6 
a 


Routine Base: 


ROUTINE GET_RECORD (OUTDESC,GETRAB) = 
; FUNCTIONAL DESCRIPTION: 
! Read a record from the temp file 


: REF VECTORC,LONG), 
AB : REF S$BBLOCK; 


- GETRABCRAB$V_B10) 


I 
THEN SREADTRAB=.GETRAB) 
ELSE SGET(RAB=.GETRAB)); 


-GETRABCRABSW_RS7J; 
.GETRABLRABSL _RBF J; 


~EXTRN 
0004 00000 GET_RECORD: 
- WORD 
52 08 AC 00 00002 MOVL 
03 €1 00006 BBC 
52 DD 00008 PUSHL 
01 FB 00000 CALLS 
98 11 00014 BRB 
2 0D B28 1$ PUSHL 
0 01 Fe 001 CALLS 
D 50 E9 QOOIF 2$ BLBC 
1 4 Ac g0 0022 OVL 
1 § AS 3 88 6 MOVZWL 
1 Ae D0 A OVL 
04 0002F 3$: ET 


SCODES + OOAF 
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GLOBAL Rov INE MAILSWRITE_M 


pa19Be 12:42:51 


VAX-11 Blis 
DISKSVMSMAS 


(GET NROUTINE -CNCTDESC, FOLDER_DESC,MSGFLAGS,OUTRAB,DATETIME) = 


lee 


FUNCTIONAL DESCRIPTION: 
; Write a message to an ISAM mail file 


BEGIN 


P 
CNCTDESC : REF Peat 
FOLDER DESC : REF Lock, 

SGFLAGS : $BBLOC 


: REF SBoL otk 

DATETIME : REF VECTORE .LONG); 

B) : BBLOCK 

FR OMDESC _SeBLocK, 

“Tones 

_SUBJDESC) : USBBLOCK: 

LOCAL 
PTR : REF 
PTR1 : REF VECTO 


c 
MSGHDR : REF S$8BL0 
SAVERFA : VECTOR 


,LONGS, 
CK 
, LONG) e 


are 


TFAB : REF $BBLOCK 
SIZEOFF : REF VEC TORE LONG]. 
RECOUNT, 


MMHLEN, 
EXTMSG, 
DEVDIRDESC : 
OUTNAM : 


CL, 
MAXRSS) 
C_MAXLENS, 


: SBBLOCK MFR_C_MAXLEN); 

OUTRABCRABSL _UBF 
bee Tene 

hast 

quienes RABSL_CTX 

Create the mail message ‘sinha record 


iF _.MSGFLAGSCMCR_V_USE DATIN] NEQ 0 
THEN CHSMOVE (9, DATETIME ,MMHLMFR_Q_DATIM]) 


$ 
T 


sC 


40-742 Page 
AIL. SRCJSENDMSG.832; 1 


1 
(9 


; 
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yosc008 12286871382 et DISKSVMSMASTER: (MAIL. SRCJSENDMSG.B32: 1° (9) | 
| 
3 9 ELSE BEGIN 
SGETTIM(TIMADR=MMH(MFR_Q_DATIMI); 
5 IF NOT MAILSCHECK DATET.OUTRAB,MAHCMFR_Q_DATINI) 
4 SIGNAL (MAIL$_DATIMUSED,2,MMHCMFR_Q_DATIM],UTILSGETF ILENAME(.OUTRAB)); 
3 5 RETURN MAILS_DATIMUSED; 
89 $ END; 
90 5 END; 
91 508 © MSGHDR = MMH(MFR_T_DATA); 
3 509 2 PTR = MSGHDRIMMH-Q-DATIDI; 
9 530 2 (.PTR)<0,32,0> =~. TMMHLMFR _Q_DATIM])<16,32,0>; 
9% 331g (.PTRI< $° > = (MMHEMFR_@_DATIM)<48, 16,05; 
95 336 (.PTR)<48,16,0> = i; | 
39 534 ! If message is gtr MAILSL_SIZLIM blocks, then deliver message to 
eS 2 5 } a sequential file. 
400 5 ; EXTMSG = 0; 
401 5 : IF_.CNCTDESCCCNCT_L_MSGBLKS) GTRU .MAILSL_SIZLIM 
40 5 THEN BEGIN 
40 EXTMSG = 1; 
404 OUTNAM = .OUTRAB RABSL FAB}; 
405 PROXAB = .OUTNAMLFABSL_XABI; !Protection XAB first in chain 
06 : Zero XAB ” ome only if COPY command into current file. 
07 IF .PROXAB EQL 
08 THEN BEGIN 
09 P SXABPRO_INIT(XAB=TMPXABPRO, 


T= ); 
TMPXABPROCXABSL_UIC] = .MAILSL_MYUIC; 
PROXAB = TMPXABPRO; 


END; 
PROXABLKABS$W_PRO] = SND_PRO; 
PROXAB XABSL-NXT] = 0; 
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54 
54 
54 
4 054 
4 054 
4 054 
4 054 
410 054 
411 054 
41g 054 
41 055 
414 055 
415 054 ; 
416 55 TNAM = .OUTNAMLFABSL_NAM); 
417 055 DEVDIRDESC(O] = - QUTNARENAMSB_DEV] + .OUTNAMLNAMSB_DIR); 
418 055 DEVDIRDESCC1) = .OUTNAMCNAMSL DEV]; , 
419 055 RECDESCCO)] = NAMSC_MAXRSS; 
420 055 RECDESCL1) = NAMBUF; 
421 055 IF NOT MAILSCHECK_DATE(.OUTRAB,MSGHDRCMMH_Q_DATID],DEVDIRDESC) 
4 é 055 THEN BEGI 
4 056 SIGNAL (MAIL$_DATIMUSED,2,MSGHDRCMMH_Q DATID], 
424 56 UTILSGETF ILENAME(.OUTRAB)); 
4 5 056 RETURN MAIL$_DATIMUSED; | 
4 5 56 SYSSFAO(MAILSSD_EXTMSGNAM, RECDESC ,RECDESC | 
428 56 DEVDIRDESC., . (ASGHDR MMH _Q DATIDI)<32,32,0>, 
429 366 . (MSGHDREMMH_Q_DATID})<0,32,0>); 
430 P 056 $FAB_INIT(FAB=TMPFAB, 
431 P 368 FNS= .RECDESCEO]. 
4 é P 36 FNA=.RECDESCL1), 
43 P 0570 ALQ=.CNCTDESCCCNCT_L_MSGBLKS), 
434 P 0571 CTX=MAIL$_OPENOUT, 
435 P 278 NAM=TMPNAM 
4 P 057 XAB=.PROXAB, 
4 P 057% FAC=(PUT,TRN), 
438 P 0575 FOP=SQ0, 
439 P 0576 RFM=VAR. 
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RAT=CR); 


IF .MSGFLAGSCMCR V_EXEC) 
, THEN TMPFABLFABSV_LNM_MODE] = PSLSC_EXEC; 


On 


JSENOMSG .B32; 


~w 


i If rab in the cnct block is the message source, we can use block i/o 


to transfer the message. 
TFAB = .GET_RABCRABSL_FABI; 


i Send in block mode only if input file has variable length records 
or VFC format. 


if ber ge4 PESTACR V_CNCT_RAB] NEQ 0) AND 


TF ABSB_RFM] EQL FABSC_VAR) OR (.TFABCFABSB_RFM) EQL FABSC_VFC)) 
THEN BEGIN 
' If file is open with fab$v_bro set, then we can enable block i/o. 
! Copy file attributes, and disconnect/reconnect if not already in 
block mode 
IF .TFABCFABSV_BRO) 
THEN N 
TMPF ABLE ABSB_RAT? = ,TFABCFABSB_RAT); 
TMPFABLFABSB_RFM) = .TFABLFABSB_RFM); 
IF NOT .GET_RABCRABS$V_BIO 
THEN BEGIN 
$DISCONNECT (RAB=GET_RAB) ; 
GET_RAB[RAB$V_B10) = TRUE; 
GETRABCRABSL-UBF) = .MAILSGL_BIGBUFFER; 
GET_RABLRABSW_USZ] = .MAIL$GL_BIGBUFSIZ*512; 
IF ERR(SCONNECT (RAB=GET_RAB,ERR=UTILSREPORT_IO_ERROR);, 
, RETURN .STATUS); 
END; 
END; 
$RAB_INIT(RAB=TMPRAB, 
FAB=TMP 
CTX=MAIL$_OPENOUT); 


TMPFABCFABSV_BRO) = TMPRABCRABSV_BIO] = .GET_RABCRABSV_BI10); 


SNAM_INIT(NAM=TMPNAM, 
ESS=NAMSC_MAXRSS, 
ESA=NANY P 
RSS=NAMSC_MAXRSS, 


RSA=NAMBUF ) ; 
IF JERR(SCREATE (FAB=THPF AB ERR=UTILSREPORT. 10_ERROR) ; , 
IF NOT .TMPFAB FAB_DEV (DIRS) 
OR ; TMPFABLSFAB_DEV (FOR) 

THEN BEGIN 

SCLOSE (FAB=TMPF AB); 
TRPF ABLE ABSL_ STS = $S$_IVDEVNAM; 

FAB Vd = 0; 


TMPF AB L~ST 
RETURN SIGNAL (SS$_IVDEVNAM) 
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MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY tbose -1984 01:17:01 VAX=-11 Bliss-32 V4.0-742 Page 16. 
Hyer 1 ~300n 138% eas DISKSVMSMASTER: CMAIL.SRCJSENDMSG.B32; 1 79 (9) | 
; 497 Pi END; | : 

49 635 ; 
Ps | e 
; 198 P 06 § IF _ERR(SCONNECT(R =TMPRAB, ERR=UTILSREPORT_IO_ERROR);, : 
; P 06 TMPF ABLFABSV DLT = = TRUE; ; 
; 1 P 06 § SCLOSE (FAB=TRPF AB | : 
; § 639 see RETURN .STATUS); : 
: 4) TRPRABERABSL CTX] = MAILS_WRITEERR; | : 
; 505 68 WHILE : 
; 0¢ 43 4 DO BEGIN ; 
; 50 P0644 4 IF _ERR((.GET ROUTINE) (RECD SC,CNCTDESCCCNCT_T_RAB));, : 
: 508 P0645 4 if STA ATUS FOL “£6 : 
; 509 Pp 646 4 THEN EXITL : 
; 510 P 0647 4 ELS EIN : 
; 511 P 0648 4 “ytit REPORT_10 ERROR (CNCTDESCLCNCT_ T_RABJ); : 
: 21¢ Pp 0649 4 TMPFABLFABSO DCT) = TRUE; : 
; 51 P 0650 4 SCLOSE (FAB=TAPFAB); ; 
: 514 P 0651 4 RETURN .STATUS; : 
5 15 bo3¢ 4 END); 5 
; 516 0653 4 IF NOt - THPRABLRABSV B10] ; 
3; 517 0654 4 AND cDESCLO) U2 3 
; 518 0655 4 OTE EDESC + RECDESCLO) =2)<0,16> ; 
; 519 8928 5 EQLU (CR OR LF*8) 3 
; 520 0657 4 THEN RECDESC(O) = ng recDe ss 0) - F 
; 521 P 0658 4 IF _ERRUPUT™ _SEND_MSG(.RECDESCLO be Bi cers, ; 
; 5 é P 0659 4 TMPRAB);, : 
: 5 P 0660 4 TMPFABCFABSV_DLT] = TRUE: : 
: 526 P 0661 4 SCLOSE (FABSTMPF AB) ); : 
: 525 066¢ 4 RETURN .STATUS); 3 
; 526 0663 4 RECOUNT = .RECOUNT + 1; : 
3; 527 0664 END; : 
: 528 0665 ! 3 
: 2$) 0666 ! If block mode copy and we don't know number of records from a previous ; 
3 : 084 } delivery, then read the file in record mode and compute the # records : 
3 532 669 IF see ery B10) ; 
3; 53 0670 THEN IF (RECOUNT-= .CNCTDESCCCNCT_L_NRECS]) EQL 0 
3 534 0671 4 THEN BEGIN 
; 535 0672 4 SDISCONNECT (RAB= TMPRAB) j 
; 536 0673 4 MPRAB[RABSV_BIO) = FALSE; 
; 537 0674 4 THPRAB RABS$W_USZ] = MATL $k INBUFFSZ; 
; 538 0675 4 TMPRABLRABSL UBF) = CNCTDESCECNCT T_T BUFFER]; 
; 539 067 3 IF _S$CONNECT(RAB=TMPRAB,ERR=UTILSREPORT_10_ERROR) | 
: 540 67 THEN WHILE $GET(RAB=TMPRAB) 
: 41 67 4 “aie DO RECOUNT = .RECOUNT + 1; 
; rk 0680 TMPFABLFABSL_CTX) = MAILS. CLOSEOUT | 
; é ee SCLOSE(FAB=TRPFAB, -ERR=UTICSREPORT_ io. ERROR); 
° | 
; 54 Des ' 
; 549 ? : Not too big, ensure date/time key not used 
F i 8 EL se IF NOT MAILSCHECK_DATE(.OUTRAB,MSGHDRLMMH_Q_DATID]) 
: 551 8 SIGNAL (MAIL$_DATIMUSED,2,MSGHDRCMMH_Q_DATID) 
; 338 6 UTILS$GETF ILENAME (TOUTRABS); 
: 55 690 RETURN MAILS_DATIMUSED; 
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MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 1b-se -1984 01:17:01 VAX-11 Bliss-32 V4.0-742 Page 17 
y0c008 - 1 ~3007 138% Ea DISKSVMSMASTER = CMAIL .SRCJSENDMSG.B32: 1° (9) 
5 ¢ 63) END; 
: § 638 ! Write the message date/id record to the file to ‘reserve’ it. Only 
; 694 ! one 8-byte record is written, which is deleted after the message has 
5 8 695 ' been delivered, unless we just finished writing an external message file. 
; 26 24 In that case, the 8=byte record is deleted when the message is deleted. | 
: 561 P0698 ¢ IF ERR(PUT_SEND_MSG(B-MSGHDRCMMH_Q_DATID], .OUTRAB) ; , 
; 66 : RETURN gata 2 
; 56 0 Sy 88 = ,QUTRABCRABSL_RFAOJ; 'Save the header rfa 
; 565 , 1 SAVERFA 1J] = .OUTRABLRABSW_RFA4); 
; 208 fi § Create the message header record 
; 568 at CHSCOPY(.FOLDER_DESCCDSCSwW yp FE ICLpECeA Porurens 8. 
; 569 0706 MFR_S_FILEREY,MMHCMFR 1 FICEKEY)); 
; 570 070 MMHCMFR_B_FILKEYLENT = .FOLDER_DESCCDSCSW_LENGTH); 
; #571 3708 MSGHDRCAMA_W_ FLAGS] = 0; 
3 27% 709 IF .MSGFLAGSCMCR_V_ SND Newns¢) 
3; of 0710 THEN MSGHDRCAMA_V_REWMSG) = 1; 
; 274 0711 RCMMH_V_EXTMSG] = .EXTMSG; 
: 575 Orig MSGHDR(MMH_B-FLAGSIZ] = 0; 
; 276 071 MSGHDR(MMH_L-FLAGVAL] = 0; 
: 577 0714 MMH-B-HDSPARE] = 0; 
; 278 34 OUTRAB RABSL_ROP) = 0; 
3 389 On? If we are to signal a ‘‘new folder’, then look for it now 
3 286 tah Hr gi SSC ASSCRER VELL NEU 
; 584 0721 OUTRABLRABSL_ROP) = RABSM_NLK; 
; 585 07 § OUTRABLRABSL_KBF) = MMHCMFR_T FILEKEY); 
; 586 07 OUTRABCRAB$B_KSZ] = MFR_S_FILEKEY; 
3 587 0724 OUTRABCRABSB_KRFJ = 1; 
; 588 0725 4 IF NOT $F INDTRAB=.OUTRAB) 
: 589 0726 THEN SIGNAL (MAIL$_NEWFOLDER,1,.FOLDER_DESC); 
; 390 0737 OUTRABLRABSL_ROP) = 0; 
; 591 0728 OUTRABLRABS$B_KSZ) = 8; 
; 98 729 OUTRABCRABSB_KRF) = 0; 
3 eer f ? — RABSL_KBF) = 0; 
; 595 07 ‘ PTR = MSGHDRCMMH_T_MISCDAT); 
: 338 078% 5 PIRES = FROMTDESCEDSCSW_LENGTH 
. s s . 
; 238 735 2 PTR = rane PTRETN hak Mer Piscsa.ponten.prace2); 

599 7 
; S anmEwert 
; 600 7 $ PTRL1) = .T0 bes¢tpscsu LENGTHD: 
; 601 7 3 PTR = CHSMOVE(.PTRC1),.TO_DESC OSCSA_POINTER),PTRE2]); 
3 o0¢ 7 PTR = C_SUBJ; 
; 60 740 2 PTREI) = ,SuBJ-DESCEDscsu LENGTH); 
: 604 741 PTR = CHSMOVE(.PTR »» SUBS _DESC HSCSA_POINTER],PTRC2)); 
; 605 74 PTR = 5 
3 rey 74 PTR hPa 
; 60 744 2 PTRI = PTRE2); 
; 608 745 IF .EXTMSG 
; 609 ore THEN ere tgd = ,RECOUNT ‘If external message, count known 
3; 610 074 ELSE PTR1 = 0; ! otherwise store a zero until $Supdated 
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; 611 74 5izCOre = eynted -MMH; 

3 eig 74 PTRE4 

; 613 f RAWLEN = .PTR-MMH; 

; oi? f § ! Write the message header record 

; g19 P0754 2 iF _ERR(PUT_NEW REC(. MMHLEN, MMH, .OUTRAB) ; 

; 618 , 5 ; RETURN .STATUSS; 

: 620 7 : iif message is small enough to fit into the isam file, then read the 

3 ° 1 f 8 message and pack the message and write it. 

: 6 5 760 2 iF NOT .EXTMSG 

3; 624 761 THEN BEGI 

; 625 166 IF .GET_RABCRAB$V_B10) ‘Ensure not connected for block mode 
; 626 76 4 THEN N 

; 627 0764 4 $DISCONNECT (RAB=GET_RAB) ; 

; 628 0765 4 GET_RABCRABSV_B10) = FALSE; 

; 629 0708 4 GET RAB speed = MAILSK_INBUFFSZ; 

; 6350 0767 4 GET"R RABSL- UBF) = CNCTDESCCCNCT_T_ BUFFER); 

; 631 P0768 4 IF TeRRG CONNECT CRAB=GET RAB ERRUTILSREPORT, 10_ERROR) ;, 

3 O38 3768 4 RETURN .STATUS); 

> 634 brat mari .OUTRABLRABSL_RFAO]; 

: 63) b778 MMHRF AC _ sOUTRAB RABSW_ RFAG): 

: 637 O77 CHSROVE (. “WHILE, MMH, SAVEMMH) ; 
; oz) p78 i Read the message, pack the records and write them to the message file 
: 641 0778 CHSMOVE (8, WSGHDRCMMH Q_DATID],MMHCMFR_Q_DATIM)); 
: 642 0779 CHSFILL(O.MFR_S_FILEREY+1,MMHCMFR_B ~FTLREYLENI) ; 
; 643 0780 INIT PACK *RECTRECLEN) | ‘Initialize to pack records 
: 645 0786 4 DO BEGIN 
3; 646 P 0783 4 IF _LERR((.GET_ROUTINE) (RECDESC ,CNCTDESCCCNCT_T_RAB));, 
> 647 P 0784 4 if .STATUS EQL RMS$_EOF 
; 648 P 0785 4 THEN EXITL t oor 
; o6) 44} ? ; ELSE RETURN UTILSREPORT_IO_ERROR(CNCTDESCCCNCT_T_RABJ)); 
: 651 0788 4 i If record is terminated with a CR/LF, strip it. This type of 
3 $36 4494 ? record is produced by DEC Standard Runoff. 
: 654 O78 4 if -RECDESCLO] GEQ 
3; 655 Ps 4 a eo ocectas « -RECDESCLO) - 2)<8, 16> 
; 656 793 «5 U (CR OR LF*8) 
3; 657 794 4 THEN RECDESC EO) = ,RECDESCCO) - 2; 
; 658 795 4 i be OUNT = .RECOUN 
3; 659 P 0796 4 F_ERR(PACK NEW REC(. RECDESCLON, .RECDESCC1, 
; 660 P 0797 4 ~OUTRAB);, 
; 661 798 4 RETURN STATUSS © 
: 666 44 END; 
> 664 P 601 IF LERR(END_PACK -RECLEN WMH, .OUTRAB) ; 
; 665 80¢ RETURN . STATUS 
; 667 804 i Update the mail message header record to have the correct 
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OUTRAB[RABSL “fred = ‘AAWRFAC 3 
OUTRAB RABSS-RA RFA MMHRF AL 1 


RABSC 
IF TP SP IND (RABE. OUTRAB, RERRSOT IC SREPORT. 10_ERROR) 


IN 
ABCRABSW_RSZ) : ~MMHLEN; 
OF SAVE mn SIZEOFF; 
OF 
AB 


Fi 

FCO 0). = 

CRAB ABSL RGF 
E( 


BEG 
UTR 
1ZE 
17E 
UTR UN VEMM 

RAB=. ~OUTRAB. ERREUT IL SREPORT. 10_ERROR); 


+e 


' 
Delete the marker record 


OUTRAB atte =Rr Ap - SAVERFACO); 


OUTRABLR - SAVERFAL1); 
IF ERR RSP INDTRAB=0 UTR AB);, 
RETURN TRUE); 


SDELETE (RAB=.OUTRAB); 
END; 


RETURN TRUE 
END; 


EXTRN 
EXTRN 
OFFC 00000 -ENTRY 
5E ED88 CE YE 00002 MOV 
08 AC 00000286 8F C1 00007 ADDL 
58 60 9E Bo019 MOV 
08 Ac 08 C1 00013 ADDL 
50 DD Bogie PUSH 
08 Ac 10 C1 QOOTA ADOL 
50 DD OO01F PUSH 
08 Ac 18 C1 00021 ADDL 
5 +4 0026 PUSHL 
56 14 «AC 8 8 MOVL 
$3 Aé 18 AE O2C MOV 
0 A6 0800 8 8F 8 0031 MOVW 
1—€ A6 01 0037 MOVB 
04 A6 04 00038 CLRL 
18 A6 007E10D0 F DO 00035E MOVL 
10 AC 4 €1 00046 BBC 
18 BC 9 28 4 MOVC3 
A 11 2 BRB 
18 Ag oF 1$: PUSHAB 
000000006 00 01 FB 00056 CALLS 
18 AE 9F 00050 PUSHAB 


SYSSGETTIM Srsse lsc Qumect 


SY YS$F IND 
SySSUPDATE, SYSSDELETE 
MAILSURITE _MSG, Save R2,R3.R4,R5,R6,R7,R8,- 


($P), SP 
#646, ene fpesc, RO 
8, ENCTDESC, RO 
#16, CNCTDESC, RO 
#24, CNCTDESC, RO 


He0lg. 3e 38(R6) 
#8261840, 24(R6) 
#4, MSGFLAGS 

i" @DATETIME, MMH 
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MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:17:01  VAK=11 Bliss-32 v4.0-74 
re ft ae 9} 15:9] ST EKSUMEMASTERSEMAIC. SR Ae sSENDNSG. B3264 
59 33 DO 00454 MOVL 3, PTR 
69 BO 00457 MOVW #2. (PTR) 
02 Ag 00 BE BO 0045A MOVW @O(SP), 2(PTR) 
57 $f 4 § 45F ADDL3 #4, (SP), R7 
06 Ad 9 02 Ag 46 MOVC3 2(PTR), Q(R7)+, 4(PTR) 
59 53 DO 0046 MOVL RS PTR 
$9 00040005 &F p 4 MOVL #262149 (PTR) 
3 04 ag 4 MOVAB 4(R9), R3 
50 53 D0 0047 MOVL R3 piri 
05 10 AE €9 0047A BLBC  EXTMSG, 29$ 
60 5B DO 0047E MOVL RECOUNT, (PTR1) 
02 11 04 BRB 3 
60 D4 004 98: CLRL (PTR1) 
59 18 AE Hi 0485 30$: MOV MMH, RO 
SA 6 50 ¢ 0489 SUBL Rd, R3, SIZEOFF 
59 08 £0 0048D ADDL2 #8. PTR 
50 18 Ar ; 0490 MOV MMH, RO 
59 ; C2 00494 SUBL2 RO, MMHLEN 
6 DD 00497 PUSHL R6 
1¢ «AE OF 00499 PUSHAB MMH 
59 DD 904 9¢ PUSHL HLEN 
FABS CF 03 FB 0049 CALLS #3, PUT_NEW_REC 
38 0 £9 004A LBC —- STATUS, "32$ 
03 10 AE E9 DO4A6 BLBC XTMSG, 31$ 
ori 1 OO4AA BRW 
30 05 as 03 £1 004AD 31$: BBC #3, 5(R8), 338 
58 DD 004B2 PUSHL 
000000906 00 01 eB 00484 CALLS #1, SYSSDISCONNECT 
20 AB 0200 8F BO 004BF MOVW #512, 32(R8) 
24 «AB 08 AC 00000086 8F C1 004C5 ADDL3 #134 eactoesc, 36(RB) 
000000006 00 9F O04 CF PUSHAB UTILS$REPORT_10. ERROR 
58 DD 00405 PUSHL R 
000000006 00 08 FB 00407 CALLS #2, SYSSCONNECT 
01 5 : O04DE 32$:  BLBS STAT 
4 004E1 RET 
£8 AD 10 Ab b0 OO4Ee 33$: MOVL  16(R6), MMHRFA 
EC AD 14 Ab 3C O04E MOVZWL 20(R6) MMHRF A+4 
5B D4 O04EC CLRL UNT 
a Ce of af 88 58 Ooces noves Ms ne UN, SP. Ree 
28 00 6E _ 00 C O0ct8 movcS #0. (SP), hb. m8, MMH+8 
14 AF 9F 09 : PUSHAB RECLE 
FA73 CF : FB CALLS #1, INIT_PACK_REC 
8 DD 09 A 34$: — PUSHL 
EO AD OF C PUSHAB RE CDESC 
04 BC 0 FB OF CALLS #2, @GET_ROUTINE 
1 7 13 BLBS TATUS, 35$ 
L ATUS, @ 
0001827A «BF D 16 CHL ry S$; #98938 
H Dd 0051F PUSHL RB 
000000006 00 01 FB 1 CALLS #1, UTILSREPORT_I0_ERROR 
02 EO AD D1 § 35$: CMPL RECDESC, #2 
12 1F D BLSSU -36$ 
£4 AD EO AD C1 F ADDL3 RECDESC, RECDESC+4, RO 


Sete Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Be Se Se Be Pete Se Se Ss Se Se Se Ge Se Be Se Se Fe Se Se Ge Ge Se Be Se Se Se Ge Se Be Se Fe Se Se Se Se Se Be Se 


7 | 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 1:17: :91 VAX=11 Bliss-32_V4.0-742 + 3s | 
v04-0 14-Sep-1984 12:42:31  DISKSVMSMASTER:CMAIL -SRCISENDMSG. 832: 4 
OAOD BF FE a0 8 i CMP sg. #2573 : pace : 
EO AD 2 c3 D SUBL2 #2, RECDESC > 0794 : 
BD 41 36%: INCL igs + 0795 : 
6 DD 0054 PUSHL : 0798 : 
1¢ «AE OOF 0054 PUSHAB : : 
1C AE OF 00548 PUSHAB : : 
7E EO AD 7D 00548 mova ge. -(SP) : | ; 
FA33 CF 93 FB 54F CALLS #5, PACK_NEW_REC : : 
83 0 E 334 BLBS STATUS, 34$ ; : 
4 00557 RET : ; 
56 DD 0598 37$:  PUSHL R6 ; 0802 : 
1¢ AE OOF A PUSHAB MMH : : 
1¢ AE DD 0540 PUSHL — RECL ; : 
FAQO7 CF Fe 280 CALLS #3, END_PACK ’ ° 
64 0 £9 0056 BLBC = STATUS, ; : 
10 A6 E8 AD 00 00568 MOVL MMHRFA, 16(R6) ; 0807 ° 
4 A6 EC AD 88 9280 MOVW MMHRFA+4 20(R6) : 0808 ° 
1E AG ; 0 00572 MOVE = #2, 3 : 0809 : 
000000006 00 oF 0576 PUSHAB UT{LSREPORT_10_ERROR ; 0810 : 
000000006 99 08 FB OS7E CALLS ae. YSSF IND ; : 
22 A6 59 4 Bpege MOVW MMHLEN, 34(R6) 3 oss : 
SA 0818 CE4A 9E 0058C MOVAB SAVEMMHCSIZEOFF, SIZEOFF : 081 ; 
6A 5B 00 00598 MOVL RECOUNT, (SIZEOFF) : 0814 : 
28 Ab 0818 CE 9€ 0059 MOVAB SAVE 0(R6) : 0815 ; 
000000006 90 oF 00396 PUSHAB UTILSREPO T_10_ERROR ; 0816 ; 
000000006 00 02 FB 005A3 CALLS i, SYSSUPDATE ; : 
10 A6 F8 AD DO O05AA 38$:  MOVL  SAVERFA, 16(R6) : 0821 ; 
14 Ab FC AD BO OOSAF MOVW SAVERFA+4, 20(R6) : 0822 ; 
56 DD 00584 PUSHL 6 : 0824 : 
000000006 00 gi FB 00586 CALLS “i, SYSSEIND ; : 
56 DD b08¢0 PUSHL —R¢ : 0826 ; 
000000006 00 01 FB 005¢8 CALLS , SYSSDELETE ; : 
50 01 D0 005C9 398: MOV nt: RO : 0829 : 
04 005€C 40$: RE : 0830 : 
; Routine Size: 1485 bytes, Routine Base: S$CODES + OODF : 
; 


| 


‘7 | 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:17:01 VAX-11 Bliss-32 V4.0-742 Page 26 
yose 008 14-Sep-19 4 ES 1 DISKSVMSMASTER = (MAIL .SRCJSENDMSG.B32: 1° 185 
; 695 J} ROUTINE SEND_MSG (CNCTDESC,DEVDIR DESC ,UIC,SND_FAB) = : 
3 £35 : 1! This routine actually sends the message ‘ 
: 698 0834 1 i-- ; 
i $99 0835 ¢ BEGIN : 
; 700 $ ‘ 
; 701 08 CNCTDESC : REF $BBLOCK ° 
: 70 08 8 DEVDIR_DESC : REF $BBLOCK, : 
3; 08 SND_FAB : REF S$BBLOCK; ; 
> 704 0840 : 
: 705 0841 2 BIND : 
: A Oats GET_RAB = CNCTDESCCCNCT_T_RAB) : S$BBLOCK; ° 
; 70 & ‘ 
: 708 0844 2 LOCAL ; 
; 709 0845 FF _FLAG, ! Form=feed flag ‘ 
; 710 pees STATUS ! Routine status ‘ 
> 711 084 SAVE_SfS, : 
: 2g 0848 SAVE-STV, ; 
: 271 0849 SND_RAB : $RAB_DECL, : 
; 714 0850 SND_NAM_ : SNAM DECL ‘ 
; 715 0851 SND-XABPRO : $RABPRO DECL : 
: 716 0858 SND-ESNAM_BUF : $BBLOCKCNAMSC_MAXRSSJ, : 
3 “ie 085 DEF BUFF: ER a erg MAXRSS BYTE) ! Default name buffer ; 
> 718 0854 RECBUFF: VECTORCMAILS$R_INBUFFSZ,B8YTE), i Record buffer : 
; 719 0855 REC_SI2, ' Record size . 
3 721 tt DEST: S$BBLOCK(8); ! String descriptor : 
ee : ¢ 0858 INIT_SDESC(DESC); . 
s fe 0859 : : 
3 ase 94 : Create and set the file name and file owner : 
; 726 086 CHSCOPY( .DEVDIR_DESCCDSC$W_LENGTH) 'Concatenate dev,dir : 
: 72? 086 -DEVDIR~DESCCDSCSA-POINTER), : 
: 728 0864 ZCHARCOONT (DEFFILERAM,DEFFILETYP), ' and filename & type 5 
; 168 0865 UPLIT BYTE(DEFFILENAM,DEFFILETYP), : 
; 230 0866 O.NAMSC_MAXRSS,DEF_BUFF); 3 
; P36 0868 DESCCDSCSW_LENGTH] = .DEVDIR_DESCCDSC$W LENGTH] + : 
3; 0869 XCHARCOONT (DEF FILENAM,DEFFILETYP); ; 
: ree Bae DESCCDSCS$A_POINTERJ = DEF _BUFF; ‘ 
; 736 pers ! First try to open the file as an ISAM file 3 
. vor 087 : : 
: 038 P 0874 $NAM_INIT(NAM=SND_NAM ; 
: 739 P 0875 ESS=NAMSC~MAXRSS ; 
: 740 P 0876 ESA=SND_ESNAM BUF , : 
3 «6741 P 087 SS=NAMSC_MAXRSS : 
; 24g 878 RSA=SND_ESNAM_BUF ) ; : 
3 6746 880 STATUS = MAILSCREATE_ISAM(.SND_FAB,SND_RAB,SND_NAM,DESC,.UIC, ; 
> 745 0881 (MCR_M~CIF OR ACR_M_TXEC)): ; 
: 2h 882 | : 
: 74 88 IF (,STATUS | : 
: 748 884 AND (.SND_FABCFABSB_ORG) EQL FABSC_IDX)) ; 
3; 749 : 5 THEN BEGIN : 
; 750 P 36 IF _LERR(MAILSWRITE_MSG(GET_RECORD, .CNCTDESC ,MAILSSD_NEWMAIL, : 
: 751 P 088 (MCR_A_EXEC OR MCR_M_SND_NEWMSG OR MCR.M_CNCT_RAB), ; 
| 


MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 18-s¢ $ep-1984 1 VAX-11 Bliss-32 
vet = ~3007 138% 93:1 9 ISKSVMSMASTER: 


i 3 Pp § SND_RAB);, 

EB, RETURN .STATUS); 

; 756 END 

; 755 9 ELSE BEGIN 

7 $ 3 SAVE_STS = .SND_FABCFABSL 18); 

. F 9 SAVE-STV = ,SND-FABLFABSL STV): 

: 7 Q 94 F .SND AREF ABS IF1}) NEG 0 

ee. 95 THER SCL SE (FAB=. SND FAB); 'Close in case 

; 760 9 SND_FABCFABSL_STS - SAVE_STS; 

: 761 3 SND “FABLFABSL-STV) = .SAVE-STV: 

; re? 839 i If locked ISAM file, signal error and return 

3; 765 901 IF ((.STATUS EQL RMS$_FLK) 

3 768 902 4 D ND_FABCFABSB_ORG] EQL FABSC_IDX)) 

; re? 307 THEN RETURN UTILSREPORT~ ~10_ERROR(.SND_FAB) ; 

3; 769 b3o8 IF _.STATUS NEQ RMS$_PRV 

; 770 9906 4 THEN BEGIN 

: 771 0907 4 SND_FABCFAB$B_SHR) = 0; 

: 77 0908 4 SND-FABLFABS$B_ORG] = FABSC_SEQ; 

; 77 0909 4 SND~ FABSB_FAC) = FABSM~PUT OR FABSM_TRN 

: 77% 0910 4 SND-FABLFABSB_RAT) = FABSM~CR; 

: 775 0911 4 SND FAB FABSB_ RFM) = FABSCVAR; 

: 776 O91¢ 4 SND-FABLFABSL~XAB) = SND _XABPRO; 

3 ore p oat ‘ SXABPRO_ INIT CRABSSND XABPRO, 

: 779 0915 4 SND_XABPRO[ XABSL “Urey = UIC 

; 780 0916 é SND_XABPROLXABSW_PRO] = SND “bRO; 

: 4: Bais : i ; Open/create the addressee's mail file 

3; 784 09 0 4 éTaTus = SCREATE(FAB. : SND. FAB); 

3; 785 921 4 IF .STATUS EQL RMS$_F ' If file locked, 
; 786 9 j 3 THEN gESIN 

: 78 9 ABCF AB IF} = 0; ! unconditionaly create 
; 788 924 § srarus = SPER EC (FAB = .SND_FAB); 

: 756 958 -= 

: 791 9 4 IF NOT - SND _FABCSFAB -PEV(DIR)] 

: 79 0928 4 0 D-FABCSFAB_DEV(FOR) 

; 79 0929 THEN BEGIN 

: 79% 930 $CL SE (FAB=, SND_FAB); 

: 795 931 STATUS. = SS$_1VBDEVNAM 

: 196 9 é SND_FABCFABSC_STS) = &38_1VDEVNAN: 

: 97 9 3 3 sO FABCFABSL-STVJ = 

: 799 935 4 IF . SND. XABPROCXABSL UIC] NEQ .UIC ' Make sure file owner 
: 09 , 4 : +94 N STATUS = RMS$_PRV; ' is really correct 
; 0 § IF NOT .STATUS ' Check OPEN/CREATE 
; 939 THEN RETURN UTILSREPORT_I0_ERROR(.SND_FAB); 

: 08 P 0941 $RAB_INIT(RAB=SND_RAB, 

: 0¢ P me FAB=.SND_FAB,~ 

; 80 P 094 CTXSRALLS OPENOUT, 

; 808 944 ROP=EOF ) 


H 7 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Se VAX-11 Bliss- 
Hyatt eet sake Se tee PS 
; 45 
; 10 246 ANGE =stanugec Tome = SND_RAB,ERR=UTILSREPORT_I0_ERROR); 
: i 248 N RETURN . “STAT 
i B13 349 SND LRABURABSL CTA]. © MAILS_URITEERR:; 
3 1? 3 3 Make sure that the input RAB is in record rather than block mode 
: 13 9 j if .GET_RABCRABSV_B10) 
; «6818 954 THEN BEGIN 
: B19 955 4 SD] SCONNECT (RAB=G T_RAB); 
; 820 996 4 GET_RABCRABSV = FALSE: 
: B21 957 4 GET“RABLRABSW-USZ2] = MAILS$K_INBUFFSZ; 
; ; 958 4 GET“RABCRABSL UBF) = CNCTDESCECNCT 1 BUFFER]; 
; 959 4 SCORNECTCRAB=GET RAB, ERR=UTILSREPORT_10_ERROR) ; 
Be wi, & 
3 $ 968 Create the message delimiter 
: 828 P 0964 if _ERR(PUT SEND MSG(1 UPL IT CACHAR(FF) SND_RAB);, 
; 8 3 0965 ETORN .STATUS) 
5 B31 0967 Create the message header 
: a38 0969 DESCCDSC$W_LENGTH] = MAILS$K_INBUFFSZ; 
> 834 0970 DESCEDSCSA~ POINTER = REC BOFF; 
; 835 P 0971 SFAO(DESCRIPTOR('From:!_'AS  !17%D *"), ' Format From: Line 
Be PBR EUnet 
: e38 Pp 0974 CNCTDESCCCNCT_ Q_FROMDESC), 
: 840 P 0976 IF_ERR(PUT ~SEND MSG(.REC_S1Z,REC_BUFF,SND_RAB);, | ! Put FROM: Line 
; 841 0977 ETORN .STATOS); 
: : P 0979 SFAOCMAILSGETHSG(MAILS_MAIL10), ‘Put To: Line 
2 0 eo 
: 46 986 CNC ieattute 6 Q TODESC)); 
; P 09 IF_ERR(PUT SEND MSGT.REC S1Z,REC_ BUFF,SND_RAB);, | Put TO: Line 
: 8 oae ETORN .STATOS) 
: 850 986 IF .(CNCTDESCCCNCT_O aaa: 16,0> NEQ 0 ! If subject specified 
; 851 987 4 THEN BEGIN 
3 6 P 09 3 4 SF AO SAL) SEE THSGCMAILS_RAILZO) , ! Format subject Line 
ie bee e Beat 
: 855 991 4 CNC CTBESCECNCT, Q SUBJDESC}); 
; 36 P 998 4 IF_ERR(PUT SEND_MSG(.REC_SIZ,REC BUFF ,SND_RAB);, 
: 85 993 4 RETURN maT titi te 
3 4 END; 
: P 996 IF_ERR(PUT_ SEND MSG(0,REC_BUFF,SND_RAB);, ' Put a blank Line 
; 1 ETORN .STATUS); 
; : 999 Copy the message text to the file 
; 1909 FF_FLAG = 0; 
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MAILSSEND_MSG —VAX/VMS PERSONAL MAIL UTILITY 1b-5¢ son-}98s OU:12:0) VAN] Olisee52 V6 0-762 Poe 35, vc 


-$ep-1984 12:42:31 Disk SK$V neh TER: CMAIL. SRCJSENDMSG.B32; | ve 
; 1 3 3 WHILE 1 
5 86 1 DO BEGIN 
: 68 P 1 4 IF ERR(SGET (RAB =GET_RAB, ERR=UTILSREPORT 10_ERROR);, 
; § P1005 4 IF STATUS NEQ RMS$_EO | 
: : P 1 06 4 THEN RETU RN nee aus: 
: if i ¢ IF .FF oy ee nese | 
: 78 03 THEN, BEGIN 
: 875 1014 | If this Line is ‘From’, then insert a blank Line in between 
: 87 1918 if GET -RABLRABSY RSZ] GTRU FOHARCOUNT(*f From’) 
: 87 1014 (,GET_RABCRABSL_RBF 
: 89 P 1015 THEN’ IF SERR (PUT SEN END IMSG(O, GE -GET -RABCRABSL_RBF],SND_RAB);, 
: 88 1017 3 FF_FLAG = 0; "INo Longer following FF 
: 88 1919 4 ELSE IF .GET RABCRABSW RS7) 
: 884 1020 4 AND af zGET ER CRABS. -RBF 3, 8> EQL FF 
; 885 1021 4 rrr’ Meekee 
; 886 10 g 4 
; 887 10 4 i If record is terminated with a CR/LF, strip it. This type of 
3 eae + : ? record is produced by DEC Standard Runoff. 
: 890 10 6 4 if .GET_RABCRABSW_RSZ) G au 2 
; 891 10 z 4 AND’ .(.GET_RABLRABSL_RBF] + .GET_RABCRABSW RSZ) - = 43)<0. ,16> EQLU 
; 893 10 3 4 THEN GET_RABLRABSW_RSZ] = .GET _RABLRABSW ASO) - 2; 
: 895 P1031 4 IF _ERR(PUT_SEND_MSG(.GET_RABCRABSW_RSZJ,.GET_RABLRABSL_RBF ],SND_RAB) ; 
; 896 1936 4 RETURN 7STATUS); 
: 897 1033 3 END; 
; 98 1034 END; 'Of old format mail file : 
> 899 1035 
; 900 1036 2 RETURN TRUE 
: 901 1037 1 END; 
4C 49 41 4D OO6AC P.AAA: . ASCII \MAIL\ : | 
49 41 4D H 00680 "ASCII \.MAI\ : 
00 00 9 C 00684 P.AAB ASCII <12><0><0><0> 5 | 
31 21 20 20 20 53 41 21 SF 21 3A 6D 6F 46 0688 P.AAD: <ASCII \From:!_'AS  !17%D *\ : | 
2a 20 44 ; 37 006C : 
00 00014 O06CC P.AAC : 
0000000" 00600 ADDRESS P.AAD : 
OFFC 00000 SEND_MSG: 
‘WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 0831 
5 FARB CE 9E 90002 HOVAB «-1288( SP), sP : 
5 04 ac MOVL CNCTDESC, R > 0842 
5 0286 C8 9E OVAB 646(R8), R7 : 
0 AE 7C 0001 CLRQ DESC > 0858 
56 8 AC pO 0001 MOVL  DEVDIR DESC. R6 > 0862 
B 66 3C 0001 MOV2WL (R6), Al : 
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) 
701 VAX-11 Bliss-32 V4.0-742 P ‘ 
:31 D1SKSVMSMASTER:CMAIL .SRCISENDMSG.B32:1°" (10) 
#255, R10 ; 
DEF Burr R9 ; 
R117 a4(R6), #0, R10, (ROD : 
1$ : 
R11, R9 : 
R11, R10 3 
#8,'P.AAA, #0, R10, (RO) : 
#8, (R6), DESC + 0868 
DEF BUFF. DESC +4 ; oaS5 
#0,~(SP), #0, #96, $SRMS_PTR : 0878 
#24578. $RMS_PTR : 
#1, $RMS_PTRT : 
SND _ESNAR, BUF SRMS_PTR+4 : 
SND_ESNAM_BUF, SRMS_PTR+12 : 
cian : B80 
DESC ; 
SND _NAM ; 
SND_RAB : 
SND_FAB. R6 : 
#6, MAILSCREATE_ISAM : 
er aTae Se : 0883 
g9(R6) #32 + 0884 
SND_RAB : 9 
#577, -(SP) ; es 
MAILSSD_NEWMALL F 
GET_RECORD : 
#5, “MAILSWRITE_MSG ; 
STATUS, 2$ ; 
26$ 3 
8(R6), SAVE_STS : 089 
12(R65, SAVE_STV : 089 
2(R6) + 0894 
4$ ; 
Re + 0895 
#1, SYSSCLOSE ; 
SAVE_STS, 8(R6) > 0896 
SAVE STV, 12(R6) : 0897 
TATOS, #98954 : 0901 
9(R6), #32 : 0902 
11$ : 
STATUS. #98970 ; 0905 
29(R6) > 0908 
#17 23(R6) : 0909 
#514, 30(R6) : 0910 


kK 7 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:17:01  VAX=11 Bliss-32 v4.0-742 Page 31 
re tts 12780871382 ES DISKSVMSMASTER:CMAIL. SRCJSENDMSG.B32:1> aa 
24 Ab FFOS CD 9E O00F MOV SND_XABPRO, 36(R6) : 091 
0058 8F 00 6E a 00 3f movcS #0,~(SP), #0, 138. $RMS_PTR : tabs 
) é 
FFOS = CD 581 SF 80 1 . MOVW #22547, $RMS_PTR : 
FFIO §©— CD 0C AC 00 001 MOVL ult. SND_XABPRO+12 + 0915 
FFOC §=6 CD 34 AE 1 NE GW ‘ > SND-XABPRO+8 : 316 
000000006 Q me 1 CALLS af SYSSCREATE : 
p DO 001 MOVL RO, STATU : 
0001828A BF ; D} cHPL st TUS, #98954 + 0921 
07 «Ab 03 BA 001 BICB2 #3, 7(R6) : 09 3 
DD 001 PUSHL R + 0924 
000000006 00 gi FB 01 CALLS #1, SYSSCREATE : 
9 g DO 0014 OVL RO. STATUS : 
04 40 A 03 £1 00145 68: BBC #3. 64(R6), 7$ + 0927 
1 43 AB ED OO14A BLBC 67(R6), 8$ : 0928 
56 DD OO14E 7$: PUSHL R6 : 0930 
000000006 90 1 FB O19 CALLS #1, SYSSCLOSE ; 
0144 8F 3¢ 13 MOVZWL #364, STATUS > 0931 
08 A6 0144 8F %3C 001 MOVZ2WL #324. B(R6) : 093 
of A6 D4 0016 CLRL =: 12 (R@) : 093 
oc AC FFI 44 D1 00165 8$: CMPL SND_XABPRO+12, UIC ; 0935 
07 13 00168 9$: BEQL 10$ ; 
59 0001829A af D0 0160 MOVL #98970, STATUS + 0936 
OA 9 £8 00174 10$:  BLBS STATUS. 12$ + 0938 
56 DD 00177 11$:  PUSHL R > 0939 
000000006 00 01 FB 00179 CALLS #1, UTILSREPORT_I0_ERROR ; 
0044 28F 00 6E 3 00 C 181 128:  MOVCS #0, (SP), #0, #68, SRMS_PTR + 0944 
BC AD api F 0 0018A MOVW #17409, $RMS_PTR 3 
CO AD 0100 8F 3C 00190 MOVZWL #236 Snes PTR+4 : 
D4 AD OO7E10A2 BF DO 00196 MOVL #8261794, SRMS_PTR+24 : 
F8 AD 56 D0 0019 MOVL 6, $RM + : 
000000006 00 9F OO1A PUSHAB UTILS$REPORT_10_ERROR + 0946 
BC AD 9F OO1A PUSHAB I ; 
000000006 00 08 FB OO1A CALLS n, SYSSCONNECT ; 
59 50 DO 001B MOVL RO, STAT : 
04 59 €8 0018 BLBS STATUS, 13$ : 0947 
0 59 DO 00188 MOVL STATUS. RO > 0948 
04 00188 RET ; 
D4 AD 0O7E10D0 8F DO 001BC 13$: MOVL # 261840 SND_RAB+24 > 0949 
28 05 aA? ; E1 001¢4 BBC #3, S(R7S, 148 : 0993 
DD 001¢9 PUSHL R > 095 
000000006 0 1 FB 001C CALLS #1, SYS$DISCONNECT : 
A 8 BA 0010 BICB2 #8. 5(R7) : 0956 
0 a? 9200 F 80 1D. MOVW #512, 32(R : 0957 
4 A? 0 86 — 001D MOVAB 134(R8), 36(R7) ; 0998 
000000006 9F OO1E PUSHAB UTILSREPORT_10_ERROR ; 0959 
DD OO1E PUSHL R7 : 
000000006 00 2 fe 1EA CALLS #2, SYSS$CONNECT F 
BC AD 9F OO1F1 14$:  PUSHAB SND RAB > 0965 
FDE F OF OO1F4 PUSHAB P.AAB ; 
1 DD OO01F8 PUSHL aj ; 
F72D cr ; FB 1FA CALLS #3, PUT_SEND_MSG ; 
F E9 OO1FF LBC =—-s STATUS, "15$ ; 
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MAILSSEND_MSG VAK/VMS PERSONAL MAIL UTILITY 16-Sep-1984 17:01 VAX-11 Bliss-32 V4.0-742 Page 34 | 
Hyatt 187808- 1382 94: 15:8) DISKSVMSMASTER:CMAIL.SRCISENDMSG.B32: 1° (11) 
; 303 1938 ! GLOBAL ROUTINE MAILSSEND_MSG(CNCTDESC ,DEVDIR_DESC,UIC,USERDESC) = | 
3 38? ry ! FUNCTIONAL DESCRIPTION: | 
; 90 1949 1! This routine is called to send a message to another user. It opens 
; 908 1045 1! the user's new mail te | file and copies the new message to the 
; 909 1044 1! file. Since there is no file sharing, if the new mail message file 
; 910 1045 1! cannot be opened because it is already in use, another file will be 
3 4B Hb : created. The files will all be concatenated into one file when read. 
3 318 1048 1 ! INPUTS: 
3; 9146 130? 1! 
3 915 1050 1! CNCTDESC = Address of CNCT block for message 
; 916 1051 1! DEVDIR_DESC = Address of descriptor of addressee's mail directory 
; 917 1936 1! UIC = DIC of addressee. 
; 918 1055 1! USERDESC = Address of descriptor of user's name 
3; 919 1054 1! 
; 920 1055 1 ! OUTPUTS: 
; 921 1056 1! 
; 9 ¢ 1057 1! ALL failures are signalled as well as returned. 
:; 9 1058 1 !-- 
: 924 1059 BEGIN 
s 925 1060 
; 926 1061 MAP 
; 927 1306 CNCTDESC : REF $BBLOCK; 
; 928 106 
; 36? 1064 
; 930 1065 SND_FAB : SFAB_DECL, 
: 931 1066 STATUS; 
; 836 _ 1067 
3; 93 1068 SREWIND(RAB=CNCTDESCCCNCT_T_RAB]); 
3 934 1069 MAILSUP_PRIV(1*$BITPOSITIONTPRVS$V_SYSPRV),0); 
; 935 1070 STATUS = SEND_MSG(.CNCTDESC, .DEVDIR_DESC, .UIC,SND_FAB); 
; 936 1071 SND_FAB attr = 0; 
3 937 1078 SND-FABLFABSL~CTX) = MAIL$_CLOSEOUT; 
; 938 107 IF [SND_FABCFABS$W_IFI] NEQ 
; 939 1074 2 THEN $CLOSE (FAB=SND_FAB,ERR=UTILSREPORT_IO_ERROR); 
; 940 1075 2 MAILSDOWN_PRIV(); 
: 941 1076 ! 
; 94 1077 ! Increment new mail count 
3; 94 1078 ! 
3 944 1079 IF .STATUS 
3 oe? 1380 THEN MAILSINCR_NEWMAIL(.USERDESC); 
: 947 108@ RETURN .STATUS | 
: 948 108 END; 
-EXTRN SYSSREWIND 
0004 00000 ENTRY MAIL SSEND MSG, Save R2 ; 1038 
5E BO AE 9E 00002 ty -80(SP), 5 3 
7E 04 AC 00000286 F C1 00006 ADDL #646, CNCTDESC, -(SP) ; 1068 | 
000000006 00 1 FB 0000F CALLS #1, SYSSREWIND : | 
—E D4 Baie CLRL -(SP 3 1069 | 
10000000 8F DD 00018 PUSHL  #268435456 : 


NN ee - ~y 


3; Routine Size: 110 bytes, Routine Base: S$CODE$ + OAOB 


| 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 2:17:01 VAX-11 Bliss-32 V4.0-742 Page 35 
VO4+000 1e28ep- 1384 32:49:51 D1SKSVMSMASTER: CMAIL . SRCJSENDMSG.B32;1> (11) 

000000006 00 2 FB 0001 CALLS #2, MAILSUP_PRIV : ; 

8 pp a0 ; PUSHL SP : 1070 : 

os Oc AC DD 00098 PUSML CNCTOESC ie ; 

FC96 04 FB OO0¢E CALLS #4, SEND MSG ; : 

2 0 D 8 MOVL RO STATOS ; | ; 

24 AE D4 000 6 CLRL — SND FABs 6 : 1071 : 

18 Ae 0071058 BF 99 900 MOVE #8281720, SND_FAB+24 1072 

0 AEB 904) TST SND_FAB+2 ; 1073 : 

000000006 00 9F 00046 PUSHAB UTILSREPORT_IO_ERROR > 1074 : 

04 AE 9F 0004C PUSHAB SND_FAB : ; 

000000006 00 02 FB 0004F CALLS #2,” SYSSCLOSE : : 

000000006 00 09 FB 00056 18 CALLS #0, MAILSDOWN_PRIV : 1075 : 

™ 10 AC 5D $0086 PUSHIL et "a : 1080 ; 

000600006 00 oy FB So068 CALLS #1, MAILSINCR_NEWMAIL F ; 

50 2 D0 0006A 28: MOVL STATUS, RO : 1082 : 

04 00060 RET ; 1083 ; 


He a RE EEE eee ’ Pe 


8 
MALLESENO ASG VAX/VMS PERSONAL MAIL UTILITY 1s Sep-1 138% 1:17:01 VA 
v04= 14-Sep-1984 12:42:31 DI 


; 320 16 $ } ROUTINE SEND_ERROR (SIGARG,MECHARG,ENBL) = 
: 95 1 1 ' FUNCTIONAL DESCRIPTION: 

; 938 1089 1 i 

3 320 +3 ! | Errors signalled by MAILSSEND_ADDR and routines it calls come here 
: 996 1090 1 i-- 

; 95 1091 BEGIN 

; 958 109¢ P 

: 959 109 SIGARG : REF $BBLOC OCK 

: 960 1094 MECHARG : REF F $881 0CK 

; 961 1095 ENBL : REF VECTORL,LONG); 

; 96 1096 

; 96 1097 > SIND 

> 964 1098 ADRDESC = .ENBLC1) : REF $BBLOCK; 

; 965 1099 

: 966 1100 CAL 

: 967 1101 USERDESC : sWECtorce, LONG, 

> 968 1108 LNK : BBL OCK 

: 969 110 DESC : crc TbR LONG); 

: 970 1104 

: 971 1105 IF NOT .MAILSGL oF Lacs MAIF_V_NETJOB) 

: 97 1106 oid pest 

: 97 1107 

: 97% 1108 USERD ESctO} = .ADRDESCCADR x NAR NG); 

: 975 1109 USERDESCL! = ADRDESCCADR 

: 976 1110 (LNK = 4 ADRDESC ADR_L wet sh) Eio 0 
: 977 1111 4 THEN BEG 

: 978 111g 4 DESC 0 = .LNKCLNK B NODLEN]; 

: 979 1113 4 DESCC1) = LNKCLNK T ROD 

; 980 1116 4 SIGNAL (MAILS  SENDERRAT. “USERDESC, DESC); 
: 98 1116 3 ELSE SIGNAL (MAIL$_SENDERR,1,USERDESC); 
> 98 1117 END; 

: 984 1118 

: 985 1119 2 RETURN SS$_RESIGNAL 

> 986 1120 1 END; 


0004 00000 SEND_ERROR: 
WORD 


Save R2 
52 000000006 99 9 9002 MOV LIBSSIGNAL, R2 
3E 10 C2 000 SUBL2 #16, SP 
5 0c aC DO 0000 MOVL ENBL, RO 
42 000000006 00 01 £0 0001 BBS #1, MAILSGL_FLAGS, 2$ 
04 B0 D5 0001 TSTL a4(RO) 
D 13 00018 BEQL 2$ 
04 B60 00 0001D MOVL 94 (RO), RO 
08 AE 1D AO 9A 00021 MOVZBL 29(RO). USERDESC 
eo" 1 AO 9E 00026 MOV O(RO), USERDESC+4 
5 08 a0 p B MOVL (RO), LNK 
1 f BEQL $ 
9A 0 1 47(LNK), DESC 
9E 00035 48(RO), DESC+4 


RCISENDMSG.B32- re if 


7 
- 
. 
. 
y 
. 
2 
o 
. 
- 
. 
7 
. 
. 
. 
© 
. 
o 
. 
. 
. 
e 
. 
° 
. 
e 
. 
o 
. 
. 
. 
. 
+ 
a 
. 
e 
. 
o 
. 
- 
7 
e 
. 
. 
. 
2 
. 
o 
. 
f 
. 
e 
. 
. 
. 
© 
. 
2 
. 
. 
. 
. 
7 
. 
. 
* 
. 
a 
. 
. 
. 
o 
. 
. 
. 
. 
. 
. 
. 
o 
. 
e 
° 
. 
. 
e 


MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 
or : 


] 

1 

SE 0D A 

oc AE BP OR 

DD F 

007E810A F OD 4] 

62 4 fo 47 
a 4A 

08 AE OF 4C 

1 0D be 

007E803A F DD 51 

$¢ 3 FB rH 
5 0918 F és QO5A 
4 0005F 


; Routine Size: 96 bytes, Routine Base: S$CODE$S + 0A79 


its 


-Sep-1 
Sep-1 


— 
on 


™m 
wr 


4 17:01 VAK-11 BLliss-32 V4.0-742 Page 37. 
a8 9h] 42: :¢ DISK xhy MSMASTER: ‘ CMAIL. SRCISENDMSG.B32: 1° ay 
PUSHL SP 5 1114) 
PUSH USERDESC : 
PUSHL #8290570 : | 
CALLS #4, LIBSSIGNAL ; | 
BRB $ 1110) 
PUSHAB Frensees 3 1116) 
PUSH : 
PUSHL #4290 : 
CALLS 188s 16NAL 3 
nov #2428. + 1119 
RET ; 1120 


, | 
MAILSSEND_MSG © VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:17:01 VAX=11_BLiss-32_ v4.0-742 Page 38 nm 
VO4+000 Ve=$ep-1986 12:40:31 DIgKSVMSMASTERS CMAIL.SRCISENDMSG.832:1° ad vo 


GLOBAL ROUTINE MAILSSEND_ADDR (CNCTDESC) = 
; FUNCTIONAL DESCRIPTION: 


A 
I 


Send the message to all addressees in the addressee List 


i 

i 

! Inputs: 
4 cnctdesc = address of cnct block for message to send. 
998 BEGIN 
999 


MAP 
CNCTDESC : REF S$BBLOCK; 


338 


IND 
CNCTRAB = CNCTDESCCCNCT_T_RAB] : SBBLOCK, 
CNCTFAB = .CNCTRABCRABSC_FAB] : $BBLOCK; 


$3 


BUILTIN 
REMQUE ; 


LOCAL 

ADRDESC : VOLATILE REF $BBLOCK, 

USERDESC : VECTORC2,LONG), 

XABFHC : $XABFHC_DECL, 
TDESC : SBBLOCKCBSC$C_S_BLNI, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
; 
§ DFILE, 
FIRST_TIME, 
STATUS; 
' 
ADRDESC will be cleared by ENABLE 


i If not network job, or network and file received ok, then get file size. 
Ensure it's a disk oriented device. If not, assume the null device 


DFILE = .CNCTFABCSFAB_DEV(MNT)] AND .CNCTFABCSFAB_DEV(FOD)) 
AND .CNCTFABCSFAB_DEV(RND)]; 

CNCTRABCRABSL_CTX) = MAILS$_READERR; 

CNCTDESCCCNCT_L_MSGBLKS) ="0; 


IF (NOT .MAILSGL_FLAGSCMAIF_V_NETJOB) | 
OR -ENCTDESCTCNCT_L_FILERRI) | 


THEN BEGIN 
SREWIND (RAB=CNCTRAB, ERR=UTILSREPORT_10_ERROR); 
SKABFHC INIT (XAB=XABFHC) 


C ABSL_XAB) = XABFHC; 

SDISPLAY(F =CNCTFAB, RR=UTILSREPORT_10_ERROR); 
tj . 

CNCTDESCECNCT:L NSCB KS) = .XABFHCCXABSL_EBK); 


F .XABFHCCXAB$SO_FFB 
THEN CNCTDESCCCNCT_L_MSGBLKS] = .CNCTDESCCCNCT_L_MSGBLKS) - 1; 


WAw 


ENABLE SEND_ERROR (ADRDESC); 
| 


WA.ALAIWAIPOPOPOND 


COOOOCOSOCOSCOCSOOCOCOOOOOOOOOOOoOoOOoOOooOS 


ee ee ee ee em ee me Be ed ed ed od = wd = = = 


chabtabababababababababaatataaalabtaabaadadbaiataabatuiaababatababababababab ababad ab aba ad ali ab ath ah at aad aad ail acti cal 
SNS AA AA AA AD MT BB BB BE EE AWW nonononopepeoronor 


NAME WAR 0 OO NA UNE WIN 0 OD NA UE WN 8 ODNOA UE WW CO OONOU EWN (OO ONOUE Ww 


me el ed et aed at sd ds ss a sd 8 2 as — — 2 


oS 
= 
fwn—o 


VAX/VMS PERSONAL MAIL UTILITY 


MAILSSEND_MSG 
1045 


oo 
Fa a 


SESSSSSSSSSSSSSEE 
AANA 
SODONAUEWN (OOD ONOUES WR OOONO 


LESESS 


OOOO NNN NNN 
WN SO COnNOuUSwN— 


COOOooooooooooooooo 


segezacesssesse 


ee ee ee ee ee ee ce em ee ee ee ee ee ed od od 


el ce ee ee ee cl ee a cel ee ee ee ee ee el ee ee el el el el el cel el eel el el el el cel cere ll cael cl cel cl cell cl el cel cl cl ls cell cals cel ls cell cls 


SENNA AAA AAA AA NINA A TTT BB Pll 


-——O 
o 
— 


F 8 
16-Sep-1984 17:01 VAX-11 Bliss=-32 
12-388 38 oy: }3: 1 DISKSVMSMASTER: 
END; 
Set up the correct fromdesc in the cnct block 
if .MAIL$Q SYSNODE2[DSC$u LENGTH] NEQ 0 

AND NOT .MAILS$GL_FLAGS 


NOT, MAIF_V_NETJOB) 
THEN STRECONCATCBYN. DESC > RAT $0 SYSNODE2, CNCTDESCECNCT_@_FROMDESC) 
ELSE STRSCOPY_DXx(DYN_DESC_2,CNCTDESCLCNCT_Q_FROMDESC)); 


Loop through all addressees. 


IRST_TIME = TRUE; 
WHILE"NOT REMQUE(; (CNCTDESCCCNCT_Q_ADRLSTJ) , ADRDESC) 
DO. IF NOT .ADRDESCLADR,V_NOSEND] 


IN 
pesce = ROOPE REL ARR B en a 
DESCC1J = ADRDESCCADR_T_RAME); 


network job and file error encountered, report it now, 
herwise, attempt to deliver the mail 


IF .MAILSGL_FLAGSCMAIF_V_NETJOB 
AND NOT” .CNCTDESCCONTT_L_F 
THEN SIGNAL(.CNCTDESCCCNCT_L-F 
« CNCTDESCCCNCT_L_F ® 
ELSE BEGIN 
IF NOT .FIRST_TIME 
AN F 


-DFIL 
THEN SREWIND(RAB=CNCTRAB) ; 
FIRST_TIME = FALSE; 
IF ABRDESCCADR_U_LLNK) NEQ 0 


THE N 
STATUS = MAILSNET_SEND(.ADRDESC,.CNCTDESC); 
IF .STATUS 
AND .MAILSGL_FLAGSCMAIF_V_NETJOB] 
THEN SIGNAL(T); 


END 

ELSE BEGIN 
IF MAILSGET_DEVDIR(USERDESC ,DYN_DESC) 
THEN BEGIN 


IF NOT. -MAILSGL_FLAGSCMAIF_V_NETJOBJ 
CHSMOVE (DSC$C_S_BLN, CNCTDESCCCNCT_Q_FROMDESCIJ,TDESC); 
CHSMOVE (DSC$C_S-BLN,DYN_DESC_2, CNCTDESCLCNCT_Q_FROMDESC)); 


ND; 
STATUS = MAILSSEND_MSG(.CNCTDESC.DYN_DESC, 
-MAILST_UAF_BUFFCUAFSL_UIC],USERDESC); 
IF NOT .MAILSGL_FLAGSCMAIF V_NETJ 
THEN CHSMOVE (DSC$C_S_BCN7 TDESC,CNCTDESCCCNCT_Q_FROMDESC)); 
Update new mail count 
if .STATUS 


THEN BEGIN 

MAILSNOTIF Y(USERDESC, CNCTDESCCCNCT_Q_FROMDESC)); 
IF .MAILSGL_FLAGSCMAIF_V_NETJOB) 

AND . STATUS 


E NO 
F NO 

BEG 
USER 
USER 
‘ if 
' ot 


tt bt 


Pa 9 
JSENDMSG.832;1°" (13) 


SeGe ee Ce Ge Se Ge Ge Se Ge eeaes 
kt a tt ts 
a kt 2 
$$ ODOO0D0900O 


MAILSSEND_MSG 
yeti ms 


2c 


a kt 
Dt el et et ee kk ke 
AMNEWWN"OOOnNOu 


VAX/VMS PERSONAL MAIL UTILITY 


THEN SIGNAL(1); 
ND; 


END; 
END; 


! 
Deallocate the addressee List entry 


OFFC 00000 
5E BC AE 9E 00002 
56 04 AC 00 00006 
58 0286 C6 oF QOO0A 
57 3¢ A8& DO O000F 
40 AE D4 00013 
6D O1E6 CF DE 00016 
A? 01 03 EF 00018 
A7 9) 96 EF 00021 
1 1 D2 00027 
50 51 CA B88 A 
A7 01 04 EF 000 B 
P):) 5B D2 000 
5B 50 5B CB 00036 
18 <A8 007E10B2 8F D0 4 Fe) 
3C = AG OG OO E 
04 000000006 09 01 €1 Babe 
4 48 A6 €E9 0004D 
40 5B +4 00051 
000000006 00 9F 00054 
58 DD O005A 
000000006 00 02 FB Fe 
0 6€ 00 2C 0006 
OC AE 0068 
OC Ny} 2CiD =8F B80 Been 
% M ssaaoes HH $88 
000000006 9 F 7? 
DD 00078 
000000006 00 06 FB 70 
24 «AL OG 84 
3C = AG af AE D 7 
2 At ° O8C 
0 OO8F 
3¢ = A6s«éO?s: 00091 
: 000000006 00 6 37 
FSi 
17 000000006 00 SS oF 
6 0D A? 


8 
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LIBSFREE_VM(ZREF ( ADRDESCCADR_B_NAMLNGJ+ADR,C_LENGTH) , ADRDESC) ; 
RETURN TRUE 
END; 


SYSSDISPLAY 


MAILSSEND_ADDR, Save R2,R3,R4,R5,R6,R7,R8,- 


RIT 
-68(SP5, SP 
CNCTDESC, R6 
646(R6), RB 


R 
#4. #1, 67(R7), DFILE 
DFILE, DFILE 


E. 
DFILE, RO, DFILE 
7a261810, 26(R8) 
60(R6) 
#1, MAILSGL_FLAGS, 1$ 
72(R6), 2$ 
DFILE, 2 
UTILSREPORT_10_ERROR 


R 
#2, SYSSREWIND 
#0, (SP), #0, #44, SRMS_PTR 


#11293, $RMS_PTR 
XABFH R?) 
UTILSREPORT _10_ERROR 
#2, SYSSDISPLAY 
XABFHC+16, 60(R6) 
RABFHC+e0 

60(R6) 

#8, R6 
MAIL$Q_SYSNODE2 

. MAILSGL_FLAGS, 3$ 


ee 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ss Be Se Se Se Se Se Be Be Be Be Sete Se Se Se Se Se Be Be 


ee ee ee 
ee ee 
@ooo Se~ ~~~ 
FA MEN Oe 


H 8 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 16-Sep-1984 01:17:01  VAX=11 Bliss-32 v4.0-742 Page 41) 
ree ht 12-808-1 382 2:42:31 DISKSVMSMASTER: (MAIL. SRCJSENDMSG.B32:1> (13) | 
0 F 0009 PUSHAB MAILS$Q_SYSNODE2 : | ; 
SSOGGBEP 88 $F G0Qk? —fUSMAB. put aaee : : 
000000006 00 re B5 CALLS #3, STRSTONCAT : | ; 
§ DD OOORE 38 + 1185. 
00000000' oF ai PUSHAB DYN_DESC 2 : | ; 
000000006 8 f C6 CALLS He. STRSTOPY_Dx : 3 
D CD 4$: MOVL #1. FIRST_TIME + 1189) ; 
0 0 A DO 5$: MOVL CNETDESC, RO + 1190. F 
40 AE 8 : F O04 REMQUE @40(RO), ADRDESC ; : 
C d9 BvC 6$ : ; 
O11E 31 08 BRW 15$ : ; 
50 40 Ar D DE 6$ MOVL ADRDESC, RO + 1191 F 
A IC AO EB OOOE BLBS  28(RO) : | : 
0 4 Ns p O0E6 OVL ADRDE St + 1193 ; 
AE 1D AO 9A OOOEA MOV ZBL 29(R0), U sc ; : 
AE 40 A IE C1 OOOEF ADDL3 #30, ADRDESC USERDESC +4 + 1194 : 
2A 000000006 9 01 €1 000F5 BC #1, MAI FLAGS, 8$ + 1199 ; 
04 AC 00 000FD MOVL CNCTDES : 1200 ; 
¢8 48 AO €E8 00101 BLBS 2(RO), & : ; 
06 =A BO 0105 MOVL CNCTDESC, R2 + 1202 : 
7E 4G Ad 7D 001 MOV 6(R2), -(SP) : ; 
57 DD 00100 PUSHL 7 + 1201 ; 
000000006 00 gi FB OO10F CALLS #1, UTILSGETFILENAME : ; 
0 DD 00116 PUSHL RO : ; 
01 DD 00118 PUSHL #1 : | ; 
48 Ag DD OO11A PUSHL 72(R2) : | ; 
000000006 00 05 FB 0011D CALLS #5, LIBS$SIGNAL : ; 
00B8 31 00124 7$: BRW 1 : ; 
0c 59 £8 00127 &$: BLBS FIRST_TIME, 9$ + 1204 : 
09 5B ES 001 A BLBC ~=—dDF:ILE> 9S : 1205 3 
58 DD 00120 PUSHL R8 + 1206 : 
000000006 00 Qi FB 01 F CALLS #1, SYSS$REWIND ; ; 
9 D4 00136 9S CLRL = FARST_TI : 1207 ; 
50 40 Ar DO 00138 MOVL ADRDESC, RO 3; 1208 3 
08 ad D5 0013¢ TSTL 8(RO) : ; 
1D 1 901 F L 10 : ; 
04 AC DD 00141 PUSHL CNCTDESC + 1210 ; 
44 AE DD 00144 PUSHL ADRDESC : ; 
000000006 90 FB 00147 CALLS #2, MAILSNET_SEND ; : 
A DO 0014E MOVL RO, STATUS ; ; 
D0 AE 13 BLBC STATUS, 7$ : 1211 3 
C8 000000006 00 gi Fi 0154 BBC #1, MAILSGL_FLAGS, 7$ :1 1 : 
8 1 13¢ BRB 13$ : 121 : 
00000090" 00 9F 136 10$: | PUSHAB DYN_DESC > 1216 ; 
C AE 9F 001 PUSHAB USERDESC ; ; 
000000006 00 9 FB 167 CALLS #2, MAILSGET_DEVDIR ; ; 
F b 16e BLBC =_-«aRO,_-*214 ; : 
13 000000006 01 £0 001 BBS #1, MAILSGL_FLAGS, 11$ : 1218 3 
6 06 =A 179 MOVL.  CNCTDESC, Rb : 1220 : 
04 AE 08 Ag 0 170 MOVC a8. 8(R6S TDESC : : 
08 A6 00000000' 00 1 MOVC3 #8: DYN_DESC_2, 8(R6) : 1221 ; 
8 AE 9F 0018C 11$:  PUSHAB USERDEST > 1223 ; 
50 000000006 00 00 0018F MOVL BAILST_UAF_BUFF , RO > 1224 ; 
4 A BD 1 PUSHL  36(RO) ; : 
00000000" 00 9F 001 PUSHAB DYN_DESC > 1223 : 
56 4 AC DO 0019F MOVL  CNCTDESC, R6 : 3 
| 
| 
| 


MAILSSEND_MSG VAX/VMS PERSONAL MAIL 
vOut000 


3; Routine Size: 


UTILITY 
FD88 Sh 
06 sacaety * ty 0 
08 A6 4 at 
2 
00000006 
OC 000000006 09 
000000006 00 
50 
04 AE 
04 AE 
000000006 00 
50 
50 
50 
7E 
FD86 CF 
539 bytes, Routine Base: 


1 
1 
6 0D 13 
4 F 1A 
tH Sit 
5H Sis 
A 188 
98 AG OF 165 
Cc OCA F QOOI1C 
A ile 
A €9 158 
1 OO 198 
1 FB 0010 
40 AE 99F QO1DF 
4& ar go pies 
1D OA iN Bie 
1E §0 1E8 
04 AS F QO1EF 
02 FB Bits 
FEDS 31 OQO1F 
01 00 OO1FC 
3 OO1FF 
0000 00 
08 AC 00 00 
04 AO 00 00 
FC AQ 9F QO20A 
1 DD 00200 
E DD 0020F 
04 AC 7D 00211 
03 FB 00215 
04 O021A 


SCODES + OAD9 


Sep- 
Sep- 


ce 


1986 93:43:91 DT SkSumehA 
128: 


13$: 


_ 
= 
bed 


15$: 
16$: 


3$-32 
STER 


:C 
Re 
‘ ; MAILSSEND_MSG 
#1, MAILS$GL_FLAGS, 12$ 
a8 B(R6) 
status, 14s 

(R6) 
USERDESC 
#2, MAILSNOTIFY 
r MAILSGL FLAGS, 14$ 
stAtus, 14 
#1, LIBSSIGNAL 
ADRDESC 
ADRDESC, RO 
29(R0), 4(SP) 
#30, 4(SP) 
4(SP) 
#2, LIBSFREE_VM 
5$ 
#1, RO 
geve nothing 

(AP), RO 
4(RO), RO 
ADRDESC 


We 
par 


P 
4(AP), =(SP) 
#3, SEND_ERROR 


p 
JSENDMSG.B32¢17" (195 


Bete Se Se Se Se Be Be Se Se Ge Se Ge Se Se Se Ge Ge Ge Se Se Ge Ge Ge Se Se Ge Ge Ge Se Se 


Ww 


8 
MAILSSEND_MSG VAX/VMS PERSONAL MAIL UTILITY 18-Sep-1984 OF }2 9) VAX=11 Bliss-32 V4.0-742 
v04 14-Sep-1984 12:42:31 DISKSVMSMASTER: (MAIL. SRCJSENDMSG. B32: ea 


7111 ser 
5111 1248 ) ELUDOM 
-EXTRN LIBSSIGNAL 

: PSECT SUMMARY 
; Name Bytes Attributes 
;  SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, pokteniod bE bot fs 
; SCODES 3316 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
; seceeen= Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: RSET SYSLIBIL LB. B.L32;1 18619 183 0 1600 00:01.4 
3 7$255$DUA28: CMAIL.OBJ JMAILDEF .L32;1 457 52 1 26 00:00.4 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SENDMSG/OBJ=OBJ$:SENDMSG MSRC$:SENDMSG/UPDATE=(ENHS$: SENDMSG) 


; Size: 3276 9:t8t9 + 56 data bytes 


; nononed/COU-aitas 3894 
; Used: 486 pages 


Lines/CPU Rin: ua 
: ce Maney Complete 


ENT CORPORATION 
ND PROPRIETARY 


AH-BT13A-SE- 
VAX/VMS V4.0 


IP 
- 


023 


D= 


